﻿Imports CrystalDecisions.Shared

Public Class frmVisorDePago
    Dim idDV As New ParameterDiscreteValue
    Public idPago As Integer
    Private Sub frmVisorDePago_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim rptIngresoGastosComunes As New rptPago
        idDV.Value = idPago
        rptIngresoGastosComunes.DataSourceConnections(0).SetConnection("Driver={MySQL ODBC 5.2a Driver};Server=localhost;Port=3306;", "bdCoprevi", "root", "123456")
        'CTM QUE ME COSTÓ ENCONTRAR EL STRING DE CONEXION
        rptIngresoGastosComunes.SetParameterValue("pago", idDV)
        crv1.ReportSource = rptIngresoGastosComunes
    End Sub

End Class